From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 24 Jan 2022 14:29:38 +0000 (+0100)
Subject: * lisp/emacs-lisp/comp.el (batch-byte+native-compile): Fix unwind form
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~3194
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=72a4cdaadcf388f5a870a70a208ad7f04bf35d16;p=emacs.git

* lisp/emacs-lisp/comp.el (batch-byte+native-compile): Fix unwind form
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 3c61063a3cb..71914b2f2b7 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -4217,8 +4217,8 @@ variable 'NATIVE_DISABLED' is set, only byte compile."
       (pcase byte-to-native-output-buffer-file
         (`(,temp-buffer . ,target-file)
          (unwind-protect
-             (byte-write-target-file temp-buffer target-file))
-         (kill-buffer temp-buffer)))
+             (byte-write-target-file temp-buffer target-file)
+           (kill-buffer temp-buffer))))
       (setq command-line-args-left (cdr command-line-args-left)))))
 
 ;;;###autoload